home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / merkepalette.clssa < prev    next >
Text File  |  1995-01-20  |  713b  |  33 lines
  1. /***********************************************************************
  2.   GADGET: "'Merke Palette'" "6" 21 TYP: "?"
  3.  
  4.   $DAT >>MerkePalette.clssa<< 29.09.1992 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9. Address clariSSA
  10.  
  11.   FailAt 99
  12.   AltFail=RESULT
  13.  
  14.   GetAnimInfo
  15.   IF RESULT~="" THEN DO
  16.     PARSE VAR RESULT . "FORMAT" x y t .
  17.     Max=2**t
  18.     Anz=0
  19.     Liste=""
  20.     DO UNTIL Anz>=Max
  21.       Liste=Liste Anz
  22.       Anz=Anz+1
  23.     END
  24.     GetColor Liste
  25.     call SetClip("clPalette",RESULT)
  26.   END
  27.   ELSE Message "'Keine Animation vorhanden!"
  28.  
  29.  
  30.   FailAt AltFail
  31. exit
  32.  
  33.